home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 228 / 228.d81 / monster power (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  620b  |  22 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 ifx=0thengosub280
  3. 110 ifx=10thengosub280
  4. 120 ifx=0thenx=3:print"[147]"
  5. 130 ifx=3thenx=4:load"n2",dv,1
  6. 140 ifx=4thenx=5:load"screen",dv,1
  7. 150 ifx=5thenx=6:load"code",dv,1
  8. 160 ifx=6thenx=7:load"score",dv,1
  9. 170 ifx=7thenx=8:load"getready",dv,1
  10. 180 ifx=8thenx=9:load"bits",dv,1
  11. 190 ifx=9thenx=10:load"color",dv,1
  12. 200 ifx=10thenx=11:load"chars",dv,1
  13. 210 ifx=11thenx=12:load"tach",dv,1
  14. 220 ifx=12thenx=13:load"pullspr",dv,1
  15. 230 ifx=13thenx=14:load"bogs",dv,1
  16. 240 ifx=14thenx=15:load"trucks",dv,1
  17. 250 poke53265,peek(53265)or32:poke53270,peek(53270)or16
  18. 260 poke53272,peek(53272)or8:poke53265,peek(53265)or16
  19. 270 sys4096
  20. 280 poke53265,peek(53265)and239:poke53280,5:poke53281,5:poke808,225:return
  21. 10000 d=peek(186):n$="monster power":open15,d,15,"s0:"+n$:close15:saven$,d:end
  22.